home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2007 May / SAN CD 5-2007 CD-ROM 24.iso / pc / Software / ISSsimulator_Win / install.exe / install.dxr / 00004_MUI-GUI- confirmInstallationDialog.ls < prev    next >
Encoding:
Text File  |  2007-03-09  |  1.4 KB  |  30 lines
  1. on confirmInstallationDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  2.   iconLi = [#sys: #note]
  3.   NameLi = [#continueBut, #exitBut, #S1, #i1]
  4.   EnabLi = [#continueBut: 1, #exitBut: 1, #S1: 1, #i1: 1]
  5.   BtnsLi = [#continueBut: "Continue", #exitBut: "Exit"]
  6.   StatLi = [#S1: "This program will install ISS Simulator V3.0 on your computer..."]
  7.   EditLi = [:]
  8.   attrLi = []
  9.   valuLi = [:]
  10.   grupLi = [:]
  11.   return getconfirmInstallationDialogDialog(iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi)
  12. end
  13.  
  14. on getconfirmInstallationDialogDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  15.   winProps = [#type: #normal, #mode: #pixel, #closeBox: 0, #callback: "muiCallbackStandard", #modal: 1]
  16.   titleBar = "Install ISS Simulator V3.0"
  17.   inscription = getMUIGUIDlogText(BtnsLi, StatLi, EditLi)
  18.   txtLi = [#titleBar: titleBar, #inscription: inscription]
  19.   if not listp(attrLi) then
  20.     attrLi = [:]
  21.   end if
  22.   if not listp(valuLi) then
  23.     valuLi = [:]
  24.   end if
  25.   ElemLi = [#d, #b, #s, #i]
  26.   xyLi = [#PositionX: #z, #PositionY: #z, #BreiteF: 320, #HoeheF: 90, #xListe: [220, 120, 60, 10], #yListe: [60, 60, 10, 10], #bListe: [91, 91, 250, 32], #hListe: [20, 20, 35, 31], #aListe: [#center, #center, #left, #left], #pListe: [0, 0, #normal, 0]]
  27.   answer = displayMUIDialog(winProps, iconLi, NameLi, EnabLi, ElemLi, xyLi, txtLi, attrLi, valuLi, grupLi)
  28.   return answer
  29. end
  30.